(:*******************************************************:)
(: Test: K-gYearMonthEQ-1                                :)
(: Written by: Frans Englich                             :)
(: Date: 2007-11-22T11:31:21+01:00                       :)
(: Purpose: Simple test of 'eq' for xs:gYearMonth, returning positive. :)
(:*******************************************************:)
xs:gYearMonth("2001-01  ") eq xs:gYearMonth("2001-01")